/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Techniques / Graph / GraphMod

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 06 4d 6f 64 75 6c 65 08 | 47 72 61 70 68 4d 6f 64 |.Module.|GraphMod|
|00000010| 95 01 8c 04 b9 0f 83 08 | 07 00 08 47 72 61 70 68 |........|...Graph|
|00000020| 4d 6f 64 14 00 00 01 0d | 77 20 61 73 20 67 72 61 |Mod.....|w as gra|
|00000030| 70 68 57 69 6e 00 06 08 | 4e 65 77 47 72 61 70 68 |phWin...|NewGraph|
|00000040| 13 47 72 61 70 68 4e 61 | 6d 65 20 61 73 20 73 74 |.GraphNa|me as st|
|00000050| 72 69 6e 67 00 00 02 13 | 02 13 04 21 53 75 62 20 |ring....|...!Sub |
|00000060| 4e 65 77 47 72 61 70 68 | 28 47 72 61 70 68 4e 61 |NewGraph|(GraphNa|
|00000070| 6d 65 20 61 73 20 73 74 | 72 69 6e 67 29 0e 77 3d |me as st|ring).w=|
|00000080| 4e 65 77 20 67 72 61 70 | 68 57 69 6e 13 77 2e 74 |New grap|hWin.w.t|
|00000090| 69 74 6c 65 20 3d 20 47 | 72 61 70 68 4e 61 6d 65 |itle = G|raphName|
|000000a0| 07 45 6e 64 20 53 75 62 | 05 53 63 61 6c 65 36 58 |.End Sub|.Scale6X|
|000000b0| 31 20 61 73 20 64 6f 75 | 62 6c 65 2c 20 58 32 20 |1 as dou|ble, X2 |
|000000c0| 61 73 20 64 6f 75 62 6c | 65 2c 20 59 31 20 61 73 |as doubl|e, Y1 as|
|000000d0| 20 64 6f 75 62 6c 65 2c | 20 59 32 20 61 73 20 64 | double,| Y2 as d|
|000000e0| 6f 75 62 6c 65 00 00 04 | 01 04 01 06 81 01 53 75 |ouble...|......Su|
|000000f0| 62 20 53 63 61 6c 65 28 | 58 31 20 61 73 20 64 6f |b Scale(|X1 as do|
|00000100| 75 62 6c 65 2c 20 58 32 | 20 61 73 20 64 6f 75 62 |uble, X2| as doub|
|00000110| 6c 65 2c 20 59 31 20 61 | 73 20 64 6f 75 62 6c 65 |le, Y1 a|s double|
|00000120| 2c 20 59 32 20 61 73 20 | 64 6f 75 62 6c 65 29 09 |, Y2 as |double).|
|00000130| 77 2e 58 6d 69 6e 3d 58 | 31 09 77 2e 58 6d 61 78 |w.Xmin=X|1.w.Xmax|
|00000140| 3d 58 32 09 77 2e 59 6d | 69 6e 3d 59 31 09 77 2e |=X2.w.Ym|in=Y1.w.|
|00000150| 59 6d 61 78 3d 59 32 07 | 45 6e 64 20 53 75 62 05 |Ymax=Y2.|End Sub.|
|00000160| 58 61 78 69 73 1f 58 70 | 6f 73 20 61 73 20 64 6f |Xaxis.Xp|os as do|
|00000170| 75 62 6c 65 2c 20 58 67 | 72 61 64 20 61 73 20 64 |uble, Xg|rad as d|
|00000180| 6f 75 62 6c 65 00 00 02 | 01 02 01 04 2a 53 75 62 |ouble...|....*Sub|
|00000190| 20 58 61 78 69 73 28 58 | 70 6f 73 20 61 73 20 64 | Xaxis(X|pos as d|
|000001a0| 6f 75 62 6c 65 2c 20 58 | 67 72 61 64 20 61 73 20 |ouble, X|grad as |
|000001b0| 64 6f 75 62 6c 65 29 0a | 77 2e 58 47 30 3d 58 70 |double).|w.XG0=Xp|
|000001c0| 6f 73 0b 77 2e 58 47 31 | 3d 58 67 72 61 64 07 45 |os.w.XG1|=Xgrad.E|
|000001d0| 6e 64 20 53 75 62 05 59 | 61 78 69 73 1f 59 70 6f |nd Sub.Y|axis.Ypo|
|000001e0| 73 20 61 73 20 64 6f 75 | 62 6c 65 2c 20 59 67 72 |s as dou|ble, Ygr|
|000001f0| 61 64 20 61 73 20 64 6f | 75 62 6c 65 00 00 02 0b |ad as do|uble....|
|00000200| 02 0b 04 2a 53 75 62 20 | 59 61 78 69 73 28 59 70 |...*Sub |Yaxis(Yp|
|00000210| 6f 73 20 61 73 20 64 6f | 75 62 6c 65 2c 20 59 67 |os as do|uble, Yg|
|00000220| 72 61 64 20 61 73 20 64 | 6f 75 62 6c 65 29 0a 77 |rad as d|ouble).w|
|00000230| 2e 59 47 30 3d 59 70 6f | 73 0b 77 2e 59 47 31 3d |.YG0=Ypo|s.w.YG1=|
|00000240| 59 67 72 61 64 07 45 6e | 64 20 53 75 62 05 46 75 |Ygrad.En|d Sub.Fu|
|00000250| 6e 63 74 0b 58 20 61 73 | 20 64 6f 75 62 6c 65 06 |nct.X as| double.|
|00000260| 44 6f 75 62 6c 65 00 01 | 1b 01 1b 03 25 46 75 6e |Double..|....%Fun|
|00000270| 63 74 69 6f 6e 20 46 75 | 6e 63 74 28 58 20 61 73 |ction Fu|nct(X as|
|00000280| 20 64 6f 75 62 6c 65 29 | 20 41 73 20 44 6f 75 62 | double)| As Doub|
|00000290| 6c 65 1b 52 65 74 75 72 | 6e 20 50 6f 77 28 58 2c |le.Retur|n Pow(X,|
|000002a0| 33 29 2d 33 2a 58 2a 58 | 2b 58 2f 32 2b 35 0c 45 |3)-3*X*X|+X/2+5.E|
|000002b0| 6e 64 20 46 75 6e 63 74 | 69 6f 6e 04 50 6c 6f 74 |nd Funct|ion.Plot|
|000002c0| 28 58 31 20 61 73 20 64 | 6f 75 62 6c 65 2c 20 58 |(X1 as d|ouble, X|
|000002d0| 32 20 61 73 20 64 6f 75 | 62 6c 65 2c 20 4e 20 61 |2 as dou|ble, N a|
|000002e0| 73 20 69 6e 74 65 67 65 | 72 00 00 04 0b 04 0b 06 |s intege|r.......|
|000002f0| 32 53 75 62 20 50 6c 6f | 74 28 58 31 20 61 73 20 |2Sub Plo|t(X1 as |
|00000300| 64 6f 75 62 6c 65 2c 20 | 58 32 20 61 73 20 64 6f |double, |X2 as do|
|00000310| 75 62 6c 65 2c 20 4e 20 | 61 73 20 69 6e 74 65 67 |uble, N |as integ|
|00000320| 65 72 29 0a 57 2e 58 46 | 6d 69 6e 3d 58 31 0a 57 |er).W.XF|min=X1.W|
|00000330| 2e 58 46 6d 61 78 3d 58 | 32 08 57 2e 4e 56 61 6c |.XFmax=X|2.W.NVal|
|00000340| 3d 4e 0b 57 2e 50 6c 74 | 3d 22 59 65 73 22 07 45 |=N.W.Plt|="Yes".E|
|00000350| 6e 64 20 53 75 62 00 00 | 00 00 00                |nd Sub..|...     |
+--------+-------------------------+-------------------------+--------+--------+